object frmCreateShortcut: TfrmCreateShortcut Left = 198 Top = 111 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Create Shortcut' ClientHeight = 212 ClientWidth = 363 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object cmdFinish: TButton Left = 298 Top = 185 Width = 54 Height = 21 Caption = '&Finish' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = cmdFinishClick end object cmdNext: TButton Left = 239 Top = 185 Width = 54 Height = 21 Caption = '&Next>' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = cmdNextClick end object cmdBack: TButton Left = 185 Top = 185 Width = 54 Height = 21 Caption = '<&Back' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = cmdBackClick end object cmdCancel: TButton Left = 123 Top = 185 Width = 54 Height = 21 Cancel = True Caption = 'Cancel' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 4 end object cmdHelp: TButton Left = 55 Top = 185 Width = 54 Height = 21 Caption = '&Help' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 Visible = False OnClick = cmdHelpClick end object PageControl1: TPageControl Left = 6 Top = 5 Width = 347 Height = 172 ActivePage = pageName TabOrder = 0 object pageCommand: TTabSheet Caption = 'pageCommand' TabVisible = False object Label1: TLabel Left = 24 Top = 16 Width = 275 Height = 26 Caption = 'Type the location and name of the item you want to create a shor' + 'tcut to. Or, search for the item by clicking Browse.' WordWrap = True end object Label2: TLabel Left = 24 Top = 56 Width = 69 Height = 13 Caption = '&Command line:' FocusControl = txtCommandLine end object txtCommandLine: TEdit Left = 24 Top = 75 Width = 264 Height = 21 TabOrder = 0 end object btnBrowse: TButton Left = 24 Top = 108 Width = 82 Height = 25 Caption = '&Browse...' TabOrder = 1 OnClick = btnBrowseClick end end object pageName: TTabSheet Caption = 'pageName' TabVisible = False object Label3: TLabel Left = 33 Top = 17 Width = 145 Height = 13 Caption = '&Select a name for the shortcut:' FocusControl = txtShortcutName end object txtShortcutName: TEdit Left = 34 Top = 40 Width = 223 Height = 21 TabOrder = 0 end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Programs|*.exe;*.com;*.bat;|All Files|*.*' Options = [ofPathMustExist, ofFileMustExist] Left = 5 Top = 182 end end